home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 8 (Internal Edition) / Apple R&P Lib Internal v8.0.iso / 5-Fonts & Software / Applications / Canvas™ 3.0 / Canvas Tools / Separations / Separations.rsrc / hd11_1101 < prev    next >
Text File  |  1990-06-24  |  1KB  |  68 lines
  1. %%BeginProcSet: Adobe_cmykcolor 0 0
  2. % cmykcolor Operators
  3. % Version 1.1 1/23/1989
  4. % Copyright (C) 1987, 1988, 1989
  5. % Adobe Systems Incorporated
  6. % All Rights Reserved
  7. currentpacking true setpacking
  8. userdict /Adobe_cmykcolor 4 dict dup begin put
  9. /initialize            % - initialize -
  10. {
  11. /setcmykcolor where
  12.     {
  13.     pop
  14.     }
  15.     {
  16.     userdict /Adobe_cmykcolor_vars 2 dict dup begin put
  17.     /_setrgbcolor
  18.         /setrgbcolor load def
  19.     /_currentrgbcolor
  20.         /currentrgbcolor load def
  21.     Adobe_cmykcolor begin
  22.     Adobe_cmykcolor
  23.         {
  24.         dup xcheck
  25.             {
  26.             bind
  27.             } if
  28.         pop pop
  29.         } forall
  30.     end
  31.     end
  32.     Adobe_cmykcolor begin
  33.     } ifelse
  34. } def
  35. /terminate            % - terminate -
  36. {
  37. currentdict Adobe_cmykcolor eq
  38.     {
  39.     end
  40.     } if
  41. } def
  42. /setcmykcolor        % cyan magenta yellow black setcmykcolor -
  43. {
  44. 1 sub 4 1 roll
  45. 3
  46.     {
  47.     3 index add neg dup 0 lt
  48.         {
  49.         pop 0
  50.         } if
  51.     3 1 roll
  52.     } repeat
  53. Adobe_cmykcolor_vars /_setrgbcolor get exec
  54. pop
  55. } def 
  56. /currentcmykcolor    % - currentcmykcolor cyan magenta yellow black
  57. {
  58. Adobe_cmykcolor_vars /_currentrgbcolor get exec
  59. 3
  60.     {
  61.     1 sub neg 3 1 roll
  62.     } repeat
  63. 0
  64. } def
  65. currentdict readonly pop end
  66. setpacking
  67. %%EndProcSet
  68.